Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-04/blrplt.zip/SKEL.DAT

Text File | 1993-04-09 | 2KB | 101 lines

program @XX5;
@ZZ7

uses WObjects, WinTypes, WinProcs, Strings, WinDos, StdDlgs, StdWnds;

@ZZ6
type
  T@XX1 = object(TApplication)
    procedure InitInstance; virtual;
    procedure InitMainWindow; virtual;
@ZZ11
    function ProcessAppMsg(var Message: TMsg): Boolean; virtual;
@ZZ11
  end;

  P@XX2 = ^T@XX2;
  T@XX2 = object(@XX0)
@ZZ9

    constructor Init(ATitle : PChar);
    procedure SetupWindow ; virtual;
    function GetClassName : PChar; virtual;
    procedure GetWindowClass(var AWndClass : TWndClass); virtual;
@ZZ0
    destructor Done; virtual;
  end;

@XX9{[e-mail]}
constructor [e-mail](ATitle : PChar);
begin
@XX0.Init(Nil, @XX8);
@ZZ8
with Attr do
  begin
  Style := @XX6;
@ZZ2
  end;
@ZZ8
end;

{[e-mail];}
procedure [e-mail];
begin
@XX0.SetupWindow;
@ZZ10
end;

{[e-mail]}
function [e-mail] : PChar;
begin
GetClassName := '@XX3';
end;

{[e-mail]}
procedure [e-mail](var AWndClass : TWndClass);
begin
@XX0.GetWindowClass(AWndClass);
with AWndClass do
  begin
@ZZ3
@ZZ4
  Style := @XX7;
  end;
end;

@ZZ1
{[e-mail]}
destructor [e-mail];
begin
@XX0.Done;
end;

{[e-mail]}
procedure [e-mail];
begin
  MainWindow := New(P@XX2, Init('@XX4'));
end;

{[e-mail]}
procedure [e-mail];
begin
TApplication.InitInstance;
@ZZ5
end;

@ZZ11
{[e-mail]}
function [e-mail](var Message: TMsg): Boolean;
begin
  ProcessAppMsg := ProcessAccels(Message) or ProcessDlgMsg(Message);
end;

@ZZ11
var
  App : T@XX1;
begin
  App.Init('@XX2');
  App.Run;
  App.Done;
end.